program P5_1;
var month:array[1..31] of real;
    i,j,k:integer;
    min:real;
begin
for i:=1 to 31 do month[i]:=random(1200)/8;
for i:=1 to 31 do if random(2)=1 then month[i]:=0;
for i:=1 to 31 do writeln(month[i]:7:3);
writeln;
min:=151;
for i:=1 to 31 do
	if (month[i] <> 0) and (month[i] < min) then min:=month[i];
writeln('min == ',min:4:3);
end.
